Delphi Programmer's Power Pack

home *** CD-ROM | disk | FTP | other *** search

/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / vpe_130 / sqlwin / vpedemo.apt next >

Wrap

Text File | 1996-09-15 | 91KB | 2,256 lines

.head 0 + Application Description: VPE Demo for SQLWindows 5.0 (VPEDEMO.APP) Program code by Software Development Exceleration Unlimited Copyright ⌐ 1996 IDEAL Software - All rights reserved. .head 1 - Outline Version - 4.0.26 .head 1 + Design-time Settings .head 2 - Outline Window State: Normal .head 2 + Outline Window Location and Size .data VIEWINFO 0000: 6600010002001B00 0000000000000000 0000E91E870E0500 1D00FFFF4D61696E 0020: 00 .enddata .data VIEWSIZE 0000: 2100 .enddata .head 3 - Left: -0.013" .head 3 - Top: 0.0" .head 3 - Width: 8.013" .head 3 - Height: 4.969" .head 2 + Options Box Location .data VIEWINFO 0000: D4180909B80B1A00 .enddata .data VIEWSIZE 0000: 0800 .enddata .head 3 - Visible? No .head 3 - Left: 4.15" .head 3 - Top: 1.885" .head 3 - Width: 3.8" .head 3 - Height: 2.073" .head 2 + Class Editor Location .head 3 - Visible? No .head 3 - Left: 0.575" .head 3 - Top: 0.094" .head 3 - Width: 5.063" .head 3 - Height: 2.719" .head 2 + Tool Palette Location .head 3 - Visible? No .head 3 - Left: 6.4" .head 3 - Top: 0.729" .head 2 - Fully Qualified External References? No .head 2 - Reject Multiple Window Instances? Yes .head 2 - Enable Runtime Checks Of External References? Yes .head 2 - Use Release 4.0 Scope Rules? No .head 1 + Libraries .head 2 - ! Include VPENGINE.APL for the VPE interface .head 2 - File Include: VPENGINE.APL .head 2 - ! ----------------------------------------------------------------------------- .head 2 - ! CSTRUCT.APL (provided by Gupta with SQLWindows) is needed for the CStructPutInt function used by VpePolyLine. This file is automatically included by VPENGINE.APL .head 2 - File Include: CSTRUCT.APL .head 1 + Global Declarations .head 2 + Window Defaults .head 3 + Tool Bar .head 4 - Display Style? Etched .head 4 - Font Name: System Default .head 4 - Font Size: System Default .head 4 - Font Enhancement: System Default .head 4 - Text Color: System Default .head 4 - Background Color: System Default .head 3 + Form Window .head 4 - Display Style? Etched .head 4 - Font Name: System Default .head 4 - Font Size: System Default .head 4 - Font Enhancement: System Default .head 4 - Text Color: System Default .head 4 - Background Color: System Default .head 3 + Dialog Box .head 4 - Display Style? Etched .head 4 - Font Name: System Default .head 4 - Font Size: System Default .head 4 - Font Enhancement: System Default .head 4 - Text Color: System Default .head 4 - Background Color: System Default .head 3 + Top Level Table Window .head 4 - Font Name: System Default .head 4 - Font Size: System Default .head 4 - Font Enhancement: System Default .head 4 - Text Color: System Default .head 4 - Background Color: System Default .head 3 + Data Field .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Multiline Field .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Spin Field .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Background Text .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Pushbutton .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 3 + Radio Button .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Check Box .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Option Button .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 3 + Group Box .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Child Table Window .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + List Box .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Combo Box .head 4 - Font Name: Use Parent .head 4 - Font Size: Use Parent .head 4 - Font Enhancement: Use Parent .head 4 - Text Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Line .head 4 - Line Color: Use Parent .head 3 + Frame .head 4 - Border Color: Use Parent .head 4 - Background Color: Use Parent .head 3 + Picture .head 4 - Border Color: Use Parent .head 4 - Background Color: Use Parent .head 2 + Formats .head 3 - Number: 0'%' .head 3 - Number: #0 .head 3 - Number: ###000 .head 3 - Number: ###000;'($'###000')' .head 3 - Date/Time: hh:mm:ss AMPM .head 3 - Date/Time: M/d/yy .head 3 - Date/Time: MM-dd-yy .head 3 - Date/Time: dd-MMM-yyyy .head 3 - Date/Time: MMM d, yyyy .head 3 - Date/Time: MMM d, yyyy hh:mm AMPM .head 3 - Date/Time: MMMM d, yyyy hh:mm AMPM .head 2 + External Functions .head 3 + Library name: USER.EXE .head 4 + Function: MoveWindow .head 5 - Description: .head 5 - Export Ordinal: 0 .head 5 + Returns .head 6 - Boolean: BOOL .head 5 + Parameters .head 6 - Window Handle: HWND .head 6 - Number: INT .head 6 - Number: INT .head 6 - Number: INT .head 6 - Number: INT .head 6 - Boolean: BOOL .head 2 + Constants .data CCDATA 0000: 3000000000000000 0000000000000000 00000000 .enddata .data CCSIZE 0000: 1400 .enddata .head 3 + System .head 4 - Number: WM_SIZE = 0x0005 .head 4 - Number: WM_KEYDOWN = 0x0100 .head 4 - Number: WM_COMMAND = 0x0111 .head 3 + User .head 4 - String: DEMO_TEXT = "The moment of impact bursts through the silence and in a roar of sound, the " || "final second is prolonged in a world of echoes as if the concrete and clay of " || "Broadway itself was reliving its memories. " || "The last great march past. Newsman stands limp as a whimper as audience and " || "event are locked as one. Bing Crosby coos 'You don't have to feel pain " || "to sing the blues, you don't have to holla - you don't feel a thing in your " || "dollar collar.' Martin Luther cries 'Everbody Sing!' and rings the grand old " || "liberty bell. Leary, weary of his prison cell, walks on heaven, talks on hell. " || "Who needs Medicare and the 35c flat rate fare, when Fred Astaire and " || "Ginger Rogers are dancing through the air? From Broadway Melody stereotypes " || "the band returns to 'Stars and Stripes' bringing a tear to the moonshiner, " || "who's been pouring out his spirit from the illegal still. The pawn broker " || "clears the noisy till and clutches his lucky dollar bill. " || "Then the blackout. " || "[Genesis, 'The Lamb lies down on Broadway']" .head 4 - Number: HEADLINE = 1 ! ordinal for storing a setting .head 4 - String: RPT_PATH = 'journal.rpt' .head 2 - Resources .head 2 + Variables .head 3 - Window Handle: ghWndMain .head 3 - Sql Handle: ghSql .head 3 - Number: gnPrecision .head 3 - Number: gnPBackGnd .head 3 - Number: gnSpeed .head 3 - Number: gnColors .head 3 - Number: gnReport .head 3 - Number: gnGraph .head 3 - ! .head 3 - Number: gnSumAmount .head 3 - Number: gnSumProratedAmt .head 3 - Number: gnSumTaxAmt .head 3 - Boolean: gbTableCreated .head 2 + Internal Functions .head 3 + Function: page1 .head 4 - Description: Page 1 of Precision demo .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: nY .head 4 + Actions .head 5 - Set nY = VpeWriteBox( hDoc, 575, 200, 1625, -1, "[Center PenSize 3]This demo shows the capabilities and precision of VPE. Print this page and compare not only the positions of the frames, but the positions of each letter that can be seen. (Switch the grid on.) This is true WYSIWYG!!! ('What you see is what you get') Note that the nearest result can be seen at a scaling of 1:1. With every other scaling you get 'best results' in comparison to execution speed." ) .head 5 - Set nY = VpeWriteBox( hDoc, 100, nY + 75, 2000, -1, "['Arial' FontSize 14 Left Bold Italic Underline PenSize 0]RIGHT ALIGNED, 0.25 cm blue frame, light-blue backgr., red bold text, Arial 9 pt" ) .head 5 - Call VpeStoreSet( hDoc, HEADLINE ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 9 ) .head 5 - Call VpeSetPen( hDoc, 25, _VPE_PS_SOLID, COLOR_Blue ) .head 5 - Call VpeSetTextColor( hDoc, COLOR_Red ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_RIGHT, 1, 0, 0 ) .head 5 - Call VpeSetTransparentMode( hDoc, 0 ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Cyan ) .head 5 - ! nY + 30 because frame = 0.25 cm --> frame drawn around center of coordinates .head 5 - ! we also want a little gap between the headline and the frame .head 5 - Set nY = VpeWriteBox( hDoc, 150, nY + 30, 1850, -1, DEMO_TEXT ) .head 5 - Call VpeSetTransparentMode( hDoc, 1 ) .head 5 - Call VpeUseSet( hDoc, HEADLINE ) .head 5 - Set nY = VpeWrite( hDoc, 250, nY + 75, 2000, -1, "JUSTIFIED, no frame, Times New Roman 11pt" ) .head 5 - Call VpeSelectFont( hDoc, 'Times New Roman', 11 ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_JUSTIFIED, 0, 0 , 0 ) .head 5 - Set nY = VpeWriteBox( hDoc, 250, nY + 20, 1550, -1, DEMO_TEXT ) .head 5 - Call VpeUseSet( hDoc, HEADLINE ) .head 5 - Set nY = VpeWriteBox( hDoc, 250, nY + 75, 2000, -1, "CENTERED, thin yellow frame, Times New Roman 11pt" ) .head 5 - Call VpeSelectFont( hDoc, 'Times New Roman', 11 ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_CENTER, 0, 0, 0 ) .head 5 - Call VpeSetPen( hDoc, 5, _VPE_PS_SOLID, COLOR_Yellow ) .head 5 - Set nY = VpeWriteBox( hDoc, 150, nY + 20, 1850, -1, DEMO_TEXT ) .head 3 + Function: page2 .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: nY .head 5 - Number: nXR .head 5 - Number: nXStep .head 5 - Number: nYR .head 5 - Number: nX .head 5 - String: s .head 5 - Number: nIndex .head 5 - Number: nSkip .head 5 - Number: nFirst .head 5 - Number: nXX .head 5 - Number: nOldY .head 5 - Number: nSegments .head 5 - : p[*] .head 6 - Class: POINT .head 5 - : points[*] .head 6 - Class: POINT .head 5 - Number: hP .head 5 - Boolean: bContinue .head 4 + Actions .head 5 - ! Call VpePageBreak( hDoc ) ! only needed if page2 is put back into Precision( ) .head 5 - Call VpeUseSet( hDoc, HEADLINE ) .head 5 - Set nY = VpeWriteBox( hDoc, 200, 200, 2000, -1, "An example of drawing (better to turn the grid off here):" ) .head 5 - Call VpeSetPen( hDoc, 8, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Call VpeBox( hDoc, 200, 300, 1700, 1800 ) .head 5 - Call VpeSetPen( hDoc, 3, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Set nXR = 6 .head 5 - Set nXStep = nXR / 750 .head 5 - Set nYR = 18 .head 5 - Set nX = -nXR .head 5 - Set nSkip = 0 .head 5 - Call VpeSetPen( hDoc, 2, _VPE_PS_SOLID, COLOR_Blue ) .head 5 - Set hP = VpePolyLineInit( hDoc, 1500 ) .head 5 - Set nXX = 200 .head 5 + While nXX < 1700 .head 6 - Set nY = 1050 - ( ( SalNumberPower( nX, 3 ) - 2 * SalNumberPower( nX, 2 ) - 8 * nX ) / ( nYR / 750 ) ) .head 6 - Set nX = nX + nXStep .head 6 - Set bContinue = FALSE .head 6 + If nY < 300 .head 7 - Set nY = 300 .head 7 - Set nSkip = 1 .head 7 - Set bContinue = TRUE .head 6 + Else If nY > 1800 .head 7 - Set nY = 1800 .head 7 - Set nSkip = 1 .head 7 - Set bContinue = TRUE .head 6 + If NOT bContinue .head 7 + If nSkip = 1 .head 8 - Call VpeAddPolyPoint( hDoc, hP, -1, -1 ) .head 8 - Set nOldY = nY .head 8 - Set nSkip = 2 .head 7 + Else .head 8 + If nSkip = 2 .head 9 - Call VpeAddPolyPoint( hDoc, hP, nXX - 1, nOldY ) .head 9 - Set nSkip = 0 .head 8 - Call VpeAddPolyPoint( hDoc, hP, nXX, nY ) .head 8 - Set nSegments = nSegments + 1 .head 6 - Set nXX = nXX + 1 .head 5 - ! The following graph is created directly with VpePolyLine( ) .head 5 - Set nX = -nXR .head 5 - Set nFirst = 1 .head 5 - Call VpeSetPen( hDoc, 2, _VPE_PS_SOLID, COLOR_Red ) .head 5 - Set nIndex = 0 .head 5 - Set nXX = 200 .head 5 + While nXX < 1700 .head 6 - Set nY = 1050 - ( 3 * SalNumberPower( nX, 2 ) - 4 * nX - 8 ) / ( nYR / 750 ) .head 6 - Set nX = nX + nXStep .head 6 - Set bContinue = FALSE .head 6 + If nY < 300 .head 7 - Set nY = 300 .head 7 - Set nSkip = 1 .head 7 - Set bContinue = TRUE .head 6 + Else If nY > 1800 .head 7 - Set nY = 1800 .head 7 - Set nSkip = 1 .head 7 - Set bContinue = TRUE .head 6 + If NOT bContinue .head 7 + If nSkip = 1 .head 8 + If nIndex > 0 ! Array must not begin with -1,-1 pair .head 9 - Set points[nIndex].nX = -1 .head 9 - Set points[nIndex].nY = -1 .head 8 - ! don't increment index here, so we don't have multiple .head 8 - ! (redundant and FORBIDDEN) -1,-1 pairs in the array .head 8 - Set nOldY = nY .head 8 - Set nSkip = 2 .head 7 + Else .head 8 + If nSkip = 2 .head 9 + If nIndex > 0 .head 10 - Set nIndex = nIndex + 1 .head 9 - Set points[nIndex].nX = nXX - 1 .head 9 - Set points[nIndex].nY = nOldY .head 9 - Set nIndex = nIndex + 1 .head 9 - Set nSkip = 0 .head 8 - Set points[nIndex].nX = nXX .head 8 - Set points[nIndex].nY = nY .head 8 - Set nIndex = nIndex + 1 .head 8 - Set nSegments = nSegments + 1 .head 6 - Set nXX = nXX + 1 .head 5 - Call VpePolyLine( hDoc, points, nIndex ) .head 5 - ! The following graph is created 'manually' VpeLine( ) .head 5 - ! Never use it for such tasks, it's slow and memory exhausting .head 5 - ! in comparison to VpePolyLine .head 5 - Set nX = -nXR .head 5 - Set nFirst = 1 .head 5 - Call VpeSetPen( hDoc, 2, _VPE_PS_SOLID, COLOR_Green ) .head 5 - Set nXX = 200 .head 5 + While nXX < 1700 .head 6 - Set nY = 1050 - ( 3 * nX - 4 ) / ( nYR / 750 ) .head 6 - Set nX = nX + nXStep .head 6 - Set bContinue = FALSE .head 6 + If nY < 300 .head 7 - Set nY = 300 .head 7 - Set nFirst = 1 .head 7 - Set bContinue = TRUE .head 6 + Else If nY > 1800 .head 7 - Set nY = 1800 .head 7 - Set nFirst = 1 .head 7 - Set bContinue = TRUE .head 6 + If NOT bContinue .head 7 + If nFirst .head 8 - Set nOldY = nY .head 7 + Else .head 8 - Call VpeLine( hDoc, nXX - 1, nOldY, nXX, nY ) .head 8 - Set nSegments = nSegments + 1 .head 8 - Set nOldY = nY .head 7 - Set nFirst = 0 .head 6 - Set nXX = nXX + 1 .head 5 - Call VpeSetPen( hDoc, 3, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Call VpeLine( hDoc, 200, 1050, 1700, 1050 ) .head 5 - Call VpeLine( hDoc, 950, 300, 950, 1800 ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 10 ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_LEFT, 0, 0, 0 ) .head 5 - Call VpeSetPen( hDoc, 1, _VPE_PS_DOT, COLOR_Black ) .head 5 - Set nXX = 1 .head 5 + While nXX < nXR .head 6 - Call VpeLine( hDoc, 950 + nXX * 750 / 6, 300, 950 + nXX * 750 / 6, 1800 ) .head 6 - Set s = SalNumberToStrX( nXX, 0 ) .head 6 - Call VpePrint( hDoc, 950 + nXX * 750 / 6, 1050, s ) .head 6 - Call VpeLine( hDoc, 950 - nXX * 750 / 6, 300, 950 - nXX * 750 / 6, 1800 ) .head 6 - Set s = SalNumberToStrX( -nXX, 0 ) .head 6 - Call VpePrint( hDoc, 950 - nXX * 750 / 6, 1050, s ) .head 6 - Set nXX = nXX + 1 .head 5 - Set nY = 2 .head 5 + While nY < nYR .head 6 - Call VpeLine( hDoc, 200, 1050 + nY * 750 / nYR, 1700, 1050 + nY * 750 / nYR ) .head 6 - Set s = SalNumberToStrX( nY, 0 ) .head 6 - Call VpePrint( hDoc, 950, 1050 - nY * 750 / nYR, s ) .head 6 - Call VpeLine( hDoc, 200, 1050 - nY * 750 / nYR, 1700, 1050 - nY * 750 / nYR ) .head 6 - Set s = SalNumberToStrX( -nY, 0 ) .head 6 - Call VpePrint( hDoc, 950, 1050 + nY * 750 / nYR, s ) .head 6 - Set nY = nY + 2 .head 5 - Set nY = 1850 .head 5 - Set s = "[S 14]The three graphs together consist of " || SalNumberToStrX( nSegments, 0 ) || " (number determined during runtime) single lines! VPE manages this data bulk fast for you FAST!" .head 5 - Call VpeWrite( hDoc, 200, nY, 2000, -1, s ) .head 3 + Function: page3_4 .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 4 - Static Variables .head 4 - Local variables .head 4 + Actions .head 5 - Call VpePageBreak( hDoc ) .head 5 - Call VpeNoPen( hDoc ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_CENTER, 0, 1, 0 ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 18 ) .head 5 - Call VpeWrite( hDoc, 0, 150, 2100, 300, 'The supported barcode-types:' ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 10 ) .head 5 - Call VpeSetBold( hDoc, 1 ) .head 5 - Call VpeWrite( hDoc, 200, 300, 550, 400, "2 of 5:" ) .head 5 - Call VpeBarcode( hDoc, 200, 360, 550, 560, BCT_2OF5, "123789", "" ) .head 5 - Call VpeWrite( hDoc, 700, 300, 1200, 400, "Interleaved 2 of 5:" ) .head 5 - Call VpeBarcode( hDoc, 700, 360, 1200, 560, BCT_INTERLEAVED2OF5, "123895783482", '' ) .head 5 - Call VpeWrite( hDoc, 1350, 300, 1750, 400, "Code 39 (text on top)" ) .head 5 - Call VpeSetBarcodeParms( hDoc, 0, 1, 0 ) .head 5 - Call VpeBarcode( hDoc, 1350, 360, 1750, 560, BCT_CODE39, "ABC123", "" ) .head 5 - Call VpeWrite( hDoc, 200, 700, 550, 800, "Code 93 (rotated):" ) .head 5 - Call VpeSetBarcodeParms( hDoc, 90, 0, 0 ) .head 5 - Call VpeBarcode( hDoc, 275, 760, 475, 1060, BCT_CODE93, "DEF987", "" ) .head 5 - Call VpeWrite( hDoc, 700, 700, 1200, 800, "Codabar (rotated):" ) .head 5 - Call VpeSetBarcodeParms( hDoc, 180, 0, 0 ) .head 5 - Call VpeBarcode( hDoc, 700, 760, 1200, 960, BCT_CODABAR, "123456", '' ) .head 5 - Call VpeWrite( hDoc, 1400, 700, 1700, 800, "EAN-8 (rotated):" ) .head 5 - Call VpeSetBarcodeParms( hDoc, 270, 0, 0 ) .head 5 - Call VpeBarcode( hDoc, 1450, 760, 1650, 1060, BCT_EAN8, '40167794', '' ) .head 5 - Call VpeWrite( hDoc, 200, 1200, 500, 1400, 'EAN-8 + 2:' ) .head 5 - Call VpeSetBarcodeParms( hDoc, 0, 0, 1 ) .head 5 - Call VpeBarcode( hDoc, 200, 1260, 500, 1460, BCT_EAN8_2, '12345670', '12' ) .head 5 - Call VpeWrite( hDoc, 700, 1200, 1200, 1400, "EAN-8 + 5:" ) .head 5 - Call VpeSetBarcodeParms( hDoc, 0, 0, 0 ) .head 5 - Call VpeBarcode( hDoc, 700, 1260, 1200, 1460, BCT_EAN8_5, '98765430', '12345' ) .head 5 - Call VpeWrite( hDoc, 1350, 1200, 1750, 1400, "EAN-13:" ) .head 5 - Call VpeBarcode( hDoc, 1350, 1260, 1750, 1460, BCT_EAN13, '9781556153952', '' ) .head 5 - Call VpeWrite( hDoc, 200, 1600, 600, 1800, "EAN-13 + 2:" ) .head 5 - Call VpeBarcode( hDoc, 200, 1660, 600, 1860, BCT_EAN13_2, '4501645096787', '12' ) .head 5 - Call VpeWrite( hDoc, 700, 1600, 1200, 1800, "EAN-13 + 5:" ) .head 5 - Call VpeSetBarcodeParms( hDoc, 0, 0, 1 ) .head 5 - Call VpeBarcode( hDoc, 700, 1660, 1200, 1860, BCT_EAN13_5, '9781556153952', '12345' ) .head 5 - Call VpeWrite( hDoc, 1350, 1600, 1750, 1800, "EAN-128 A:" ) .head 5 - Call VpeSetBarcodeParms( hDoc, 0, 0, 0 ) .head 5 - Call VpeBarcode( hDoc, 1350, 1660, 1750, 1860, BCT_EAN128A, "EAN-128 A", '' ) .head 5 - Call VpeWrite( hDoc, 200, 2000, 600, 2200, "EAN-128 B:" ) .head 5 - Call VpeBarcode( hDoc, 200, 2060, 600, 2260, BCT_EAN128B, "ean-128 b", '' ) .head 5 - Call VpeWrite( hDoc, 700, 2000, 1200, 2200, "EAN-128 C:" ) .head 5 - Call VpeBarcode( hDoc, 700, 2060, 1200, 2260, BCT_EAN128C, "128902", '' ) .head 5 - Call VpeWrite( hDoc, 1350, 2000, 1850, 2200, "POSTNET (1.20) 5 or 9 digits" ) .head 5 - Call VpeBarcode( hDoc, 1350, 2060, 1628, 2120, BCT_POSTNET, "12345", '' ) .head 5 - Call VpeBarcode( hDoc, 1350, 2150, 1850, 2210, BCT_POSTNET, "414649623", '' ) .head 5 - Call VpePageBreak( hDoc ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_CENTER, 0, 1, 0 ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 18 ) .head 5 - Call VpeWrite( hDoc, 0, 150, 2100, 300, 'The supported barcode-types (continued):' ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 10 ) .head 5 - Call VpeSetBold( hDoc, 1 ) .head 5 - Call VpeWrite( hDoc, 200, 300, 550, 400, "UPC-A:" ) .head 5 - Call VpeBarcode( hDoc, 200, 360, 550, 560, BCT_UPCA, "07447079382", '' ) .head 5 - Call VpeWrite( hDoc, 700, 300, 1100, 400, "UPC-A + 2:" ) .head 5 - Call VpeBarcode( hDoc, 700, 360, 1100, 560, BCT_UPCA_2, '07447079382', '01' ) .head 5 - Call VpeWrite( hDoc, 1350, 300, 1800, 400, "UPC-A + 5:" ) .head 5 - Call VpeBarcode( hDoc, 1350, 360, 1800, 560, BCT_UPCA_5, '03126764825', '94687' ) .head 5 - Call VpeWrite( hDoc, 200, 700, 550, 900, 'UPC-E:' ) .head 5 - Call VpeBarcode( hDoc, 200, 760, 550, 960, BCT_UPCE, "0378492", '' ) .head 5 - Call VpeWrite( hDoc, 700, 700, 1100, 900, "UPC-E + 2:" ) .head 5 - Call VpeBarcode( hDoc, 700, 760, 1100, 960, BCT_UPCE_2, '0378492', '14' ) .head 5 - Call VpeWrite( hDoc, 1350, 700, 1800, 900, "UPC-E + 5:" ) .head 5 - Call VpeBarcode( hDoc, 1350, 760, 1800, 960, BCT_UPCE_5, "0364825", "79462" ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_LEFT, 0, 0, 0 ) .head 5 - Call VpeWrite( hDoc, 200, 1100, 1800, 1800, "VPE supports 21 barcode types. Barcodes can be rotated in 90 degree steps, the text can be drawn on bottom or top of the barcode, and also independently the add-on text. Any of these features can be combined." ) .head 3 + Function: page5 .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: nY .head 5 - Number: nX .head 4 + Actions .head 5 - Call VpePageBreak( hDoc ) .head 5 - Call VpeUseSet( hDoc, HEADLINE ) .head 5 - Set nY = VpeWriteBox( hDoc, 100, 200, 2000, -1, "VPE is also able to manage bitmaps for you! Place your logo wherever you want." ) .head 5 - Set nY = VpeWriteBox( hDoc, 100, nY, 1400, -1, "[S 10 L BO IO UO] [Note: These are 256-color bitmaps, in 16-color mode it doesn't look very good)" ) .head 5 - Set nY = VpeWriteBox( hDoc, 100, nY + 50, 1400, -1, "[N B U]VPE supports the following graphics file formats:" ) .head 5 - Call VpeWriteBox( hDoc, 100, nY, 1400, -1, "-Windows and OS/2 Bitmaps (2 / 16 / 256 / True Color) -Windows WMF (Metafile) -AutoCAD DXF -GIF (2 / 16 / 256 Colors) -PCX (2 / 16 / 256 Colors) -JPG (256 / True Color) -TIFF 5.0 (2 / 16 / 256 / True Color, LZW / PackBits / Fax G3 / Fax G4 / Tiled Images) -Microsoft filters (feature, some restrictions and only 16-bit versions)" ) .head 5 - Call VpeSetPen( hDoc, 5, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Call VpePicture( hDoc, 1400, 150, -1, -1, 'logo.bmp', VPE_PIC_KEEPIMAGE | VPE_PIC_KEEP_DIB_PAGE ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Set nX = VpeGet( hDoc, VRIGHT ) .head 5 - Call VpeWriteBox( hDoc, 1400, nY, nX, -1, "[N S 14 CE C White BC Red TO Italic Bold]IDEAL Software" ) .head 5 - Call VpeDefaultBitmapDPI( hDoc, 96, 96 ) .head 5 - Call VpePicture( hDoc, 1400, VpeGet( hDoc, VBOTTOM ) + 100, -1, -1, 'fruits.bmp', VPE_PIC_KEEPIMAGE | VPE_PIC_KEEP_DIB_PAGE ) .head 5 - Set nY = VpeWriteBox( hDoc, 150, nY + 400, 1500, -1, "[S 14 CE PS 0]Scale your bitmaps as you like:" ) .head 5 - Set nY = nY + 20 .head 5 - Call VpeSetPen( hDoc, 3, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Call VpePicture( hDoc, 150, nY, 200, -1, 'logo.bmp', 0 ) .head 5 - Call VpePicture( hDoc, VpeGet( hDoc, VRIGHT ) + 100, nY, VpeGet( hDoc, VRIGHT ) + 250, -1, 'logo.bmp', VPE_PIC_KEEPIMAGE | VPE_PIC_KEEP_DIB_PAGE ) .head 5 - Call VpePicture( hDoc, VpeGet( hDoc, VRIGHT ) + 100, nY, VpeGet( hDoc, VRIGHT ) + 750, -1, 'logo.bmp', VPE_PIC_KEEPIMAGE | VPE_PIC_KEEP_DIB_PAGE ) .head 3 + Function: page6 .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 4 - Static Variables .head 4 - Local variables .head 4 + Actions .head 5 - Call VpePageBreak( hDoc ) .head 5 - Call VpeNoPen( hDoc ) .head 5 - Call VpePicture( hDoc, 0, 0, -1, -1, 'gew.tif', VPE_PIC_KEEPIMAGE | VPE_PIC_KEEP_DIB_PAGE ) .head 5 - Call VpeWrite( hDoc, 250, 130, 1200, -1, "[S 24 C LtRed L PS 0]Stadt Xhausen" ) .head 5 - Call VpeWrite( hDoc, 250, 500, 1000, -1, "[S 14 C Blue]Mustermann & Co. Feinkost im- und Export" ) .head 5 - Call VpeWrite( hDoc, 1200, 460, 1700, -1, "[S 11 B]Dⁿsseldorf" ) .head 5 - Call VpeWrite( hDoc, 250, 680, 750, -1, "Schmidt" ) .head 5 - Call VpeWrite( hDoc, 250, 840, 750, -1, "24.7.1947" ) .head 5 - Call VpeWrite( hDoc, 500, 840, 1000, -1, "Oberammergau" ) .head 5 - Call VpeWrite( hDoc, 250, 1010, 750, -1, "Zunderstr. 93" ) .head 5 - Call VpeWrite( hDoc, 1000, 1010, 1750, -1, "0 27 84 / 16 45 98" ) .head 5 - Call VpeWrite( hDoc, 250, 1265, 1750, -1, "Willi-Graf-Str. 17" ) .head 5 - Call VpeWrite( hDoc, 1000, 1265, 1750, -1, "0 27 84 / 23 54 90" ) .head 5 - Call VpeWrite( hDoc, 1220, 670, 1750, -1, "Heinz - Willi" ) .head 5 - Call VpeWrite( hDoc, 1100, 1400, 1950, -1, "[S 10 J I]It is very important to mention here, that there is no problem in using the special features of VPE, like justified text and all the other attributes. Here you can see justified italic text. " || "These features and options make VPE a professional tool, that makes document processing easy for the developer, as well as for the end-user." ) .head 3 + Function: Precision .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: nMode .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: hDoc .head 4 + Actions .head 5 + If nMode = 0 .head 6 - Set hDoc = VpeOpenDoc( ghWndMain, "Precision + Capabilities", -1, -1, VPE_EMBEDDED | VPE_GRID_POSSIBLE | VPE_ROUTE_HELP ) .head 6 - Set gnPrecision = hDoc .head 5 + Else .head 6 - Set hDoc = VpeOpenDoc( ghWndMain, "Precision + Capabilities", -1, -1, 0 ) .head 6 - Set gnPBackGnd = hDoc .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_LEFT, 0, 1, 1 ) .head 5 - Call VpeSetPen( hDoc, 0, _VPE_PS_SOLID, 0 ) .head 5 - Call VpeDefineHeader( hDoc, 100, 100, 1000, 150, "Precision + Capabilities / IDEAL Software" ) .head 5 - Call VpeSetUnderlined( hDoc, 0 ) .head 5 - Call VpeDefineFooter( hDoc, 1900, 2800, 2100, 2900, "Page @PAGE" ) .head 5 - Call SalWaitCursor( TRUE ) .head 5 - Call page1( hDoc ) .head 5 - ! Call page2( hDoc ) .head 5 - Call page3_4( hDoc ) .head 5 - Call page5( hDoc ) .head 5 - Call page6( hDoc ) .head 5 - Call SalWaitCursor( FALSE ) .head 5 - Call VpeRemoveSet( hDoc, HEADLINE ) .head 5 - Call VpeGotoPage( hDoc, 1 ) .head 5 + If nMode = 0 .head 6 - Call VpePreviewDocTile( hDoc, VPE_SHOW_NORMAL ) .head 5 + Else .head 6 - Call VpePrintDoc( hDoc, FALSE ) .head 6 - Call VpeCloseDoc( hDoc ) .head 3 + Function: reporttest .head 4 - Description: Report Demo This is all done manually, only for your eyes... .head 4 - Returns .head 4 - Parameters .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: hDoc .head 5 - Number: nY .head 4 + Actions .head 5 - Set hDoc = VpeOpenDoc( ghWndMain, "Report", -1, -1, VPE_NO_USER_MOVE ) .head 5 - Set gnReport = hDoc .head 5 - Call VpeSetPen( hDoc, 5, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Call VpeDefaultBitmapDPI( hDoc, 96, 96 ) .head 5 - Call VpePicture( hDoc, 1650, 150, -1, -1, 'fruits.bmp', VPE_PIC_KEEPIMAGE | VPE_PIC_KEEP_DIB_PAGE ) .head 5 - Call VpeWriteBox( hDoc, 1650, VpeGet( hDoc, VBOTTOM ), VpeGet( hDoc, VRIGHT), -1, '[N S 9 CE I C Blue BC Gray TO]Fruits of Doom Software' ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) + 100 .head 5 - Call VpePrint( hDoc, 150, 200, '[N S 26 U]Year End Results' ) .head 5 - Call VpePrint( hDoc, 150, 400, '[N S 32]Fruits of Doom Software' ) .head 5 - Call VpeLine( hDoc, 150, nY, 2000, nY ) .head 5 - Set nY = nY + 50 .head 5 - Call VpeNoPen( hDoc ) .head 5 - Call VpePrintBox( hDoc, 150, nY, '[N S 18 C Blue]Product: Apples' ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) + 10 .head 5 - Call VpePrint( hDoc, 150, nY, '[S 16 C Purple]Country' ) .head 5 - Call VpePrint( hDoc, 650, nY, 'Quantity' ) .head 5 - Call VpePrint( hDoc, 1150, nY, 'Value (in $)' ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, '[S 14 C Black]Germany' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '[R]2.450,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "120.050,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Cyan ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Great Britain' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '2.250,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "110.250,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'France' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '1.700,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "83.300,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Cyan ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'USA' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '3.200,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "156.800,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Australia' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '1.080,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "52.920,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Total' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '10.680,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "523.320,00" ) .head 5 - Set nY = nY + 210 .head 5 - Call VpePrintBox( hDoc, 150, nY, '[N S 18 C Blue]Product: Oranges' ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) + 10 .head 5 - Call VpePrint( hDoc, 150, nY, '[S 16 C Purple]Country' ) .head 5 - Call VpePrint( hDoc, 650, nY, 'Quantity' ) .head 5 - Call VpePrint( hDoc, 1150, nY, 'Value (in $)' ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, '[S 14 C Black]Germany' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '[R]2.450,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "120.050,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Cyan ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Great Britain' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '2.250,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "110.250,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'France' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '1.700,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "83.300,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Cyan ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'USA' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '3.200,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "156.800,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Australia' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '1.080,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "52.920,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Total' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '10.680,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "523.320,00" ) .head 5 - Set nY = nY + 210 .head 5 - Call VpePrintBox( hDoc, 150, nY, '[N S 18 C Blue]Product: Bananas' ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) + 10 .head 5 - Call VpePrint( hDoc, 150, nY, '[S 16 C Purple]Country' ) .head 5 - Call VpePrint( hDoc, 650, nY, 'Quantity' ) .head 5 - Call VpePrint( hDoc, 1150, nY, 'Value (in $)' ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, '[S 14 C Black]Germany' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '[R]2.450,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "120.050,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Cyan ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Great Britain' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '2.250,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "110.250,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'France' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '1.700,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "83.300,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Cyan ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'USA' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '3.200,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "156.800,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_Gray ) .head 5 - Call VpeBox( hDoc, 150, nY, 1550, nY + 60 ) .head 5 - Call VpeSetTransparentMode( hDoc, TRUE ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Australia' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '1.080,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "52.920,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) .head 5 - Call VpePrint( hDoc, 150, nY, 'Total' ) .head 5 - Call VpeWrite( hDoc, 650, nY, 900, nY + 60, '10.680,00' ) .head 5 - Call VpeWrite( hDoc, 1150, nY, 1450, nY + 60, "523.320,00" ) .head 5 - Set nY = VpeGet( hDoc, VBOTTOM ) + 210 .head 5 - Call VpePrint( hDoc, 150, nY, '[S 20 U]Yearly Country Sales Total: $1.569.960,00' ) .head 5 - Call VpePreviewDoc( hDoc, 0, 0, 640, 400, VPE_SHOW_NORMAL ) .head 3 + Function: colortest .head 4 - Description: .head 4 - Returns .head 4 - Parameters .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: nRange .head 5 - Number: nStep .head 5 - Number: nColorStep .head 5 - Number: nMinColor .head 5 - Number: nMaxColor .head 5 - Number: hDoc .head 5 - Number: nX .head 5 - Number: nY .head 5 - Number: nR .head 5 - Number: nG .head 5 - Number: nB .head 5 - Number: nDeltaR .head 5 - Number: nDeltaG .head 5 - Number: nDeltaB .head 5 - Number: nXX .head 5 - Number: nFactor .head 4 + Actions .head 5 - Set nRange = 1400 .head 5 - Set nStep = 1 .head 5 - Set nColorStep = 2 .head 5 - Set nMinColor = 0 .head 5 - Set nMaxColor = 255 .head 5 - Set hDoc = VpeOpenDoc( ghWndMain, 'Colors', -1, -1, VPE_NO_MOUSE_SCALE | VPE_NO_USER_MOVE | VPE_NO_USER_CLOSE | VPE_NO_STATBAR | VPE_NO_RULER | VPE_NO_HELPBTN | VPE_NO_INFOBTN ) .head 5 - Call VpeSetScale( hDoc, 0.25 ) .head 5 - Set gnColors = hDoc .head 5 - Call VpeSetPen( hDoc, 0, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 30 ) .head 5 - Set nXX = -3.1415 .head 5 - Set nFactor = 2 * SalNumberAbs( nXX ) / nRange * nStep .head 5 - Set nR = 192 .head 5 - Set nDeltaR = nColorStep .head 5 - Set nG = nMinColor + 1 .head 5 - Set nDeltaG = nColorStep .head 5 - Set nB = nMinColor + 1 .head 5 - Set nDeltaB = nColorStep .head 5 - Set nX = 100 .head 5 + While nX < nRange + 100 .head 6 - Set nY = SalNumberSin( nXX ) * 500.0 + 500 .head 6 - Call VpeSetTextColor( hDoc, SalColorFromRGB( nR, nG, nB ) ) .head 6 - ! Call VpePrint( hDoc, nX, nY, 'Color Test' ) .head 6 - Call VpeWriteBox( hDoc, nX, nY, nX + 800, nY + 100, 'Color Test' ) .head 6 + If SalNumberMod( nX, 10 ) = 0 .head 7 - Set nXX = nXX + nFactor .head 7 - Set nX = nX + nStep .head 7 - Set nY = SalNumberSin( nXX ) * 500.0 + 500 .head 7 - Call VpeSetTextColor( hDoc, COLOR_Black ) .head 7 - Call VpeWriteBox( hDoc, nX, nY, nX + 800, nY + 100, 'Color Test' ) .head 6 - Set nXX = nXX + nFactor .head 6 + If nR > nMinColor AND nR < nMaxColor .head 7 - Set nR = nR + nDeltaR .head 7 + If nR < nMinColor .head 8 - Set nR = nMinColor .head 7 + If nR > nMaxColor .head 8 - Set nR = nMaxColor .head 6 + Else If nG > nMinColor AND nG < nMaxColor .head 7 - Set nG = nG + nDeltaG .head 7 + If nG < nMinColor .head 8 - Set nG = nMinColor .head 7 + If nG > nMaxColor .head 8 - Set nG = nMaxColor .head 6 + Else If nB > nMinColor AND nB < nMaxColor .head 7 - Set nB = nB + nDeltaB .head 7 + If nB < nMinColor .head 8 - Set nB = nMinColor .head 7 + If nB > nMaxColor .head 8 - Set nB = nMaxColor .head 6 + If nR >= nMaxColor AND nB >= nMaxColor .head 7 - Set nDeltaR = -nColorStep .head 7 - Set nR = nMaxColor - 1 .head 6 + If nR >= nMinColor AND nG >= nMaxColor .head 7 - Set nDeltaG = -nColorStep .head 7 - Set nG = nMaxColor - 1 .head 6 + If nG = nMinColor AND nB >= nMaxColor .head 7 - Set nDeltaB = -nColorStep .head 7 - Set nB = nMaxColor - 1 .head 6 + If nR = nMinColor AND nG = nMinColor AND nB = nMinColor .head 7 - Set nR = nMinColor + 1 .head 7 - Set nG = nMinColor + 1 .head 7 - Set nB = nMinColor + 1 .head 7 - Set nDeltaR = nColorStep .head 7 - Set nDeltaG = nColorStep .head 7 - Set nDeltaB = nColorStep .head 6 - Call VpePreviewDoc( hDoc, 0, 0, 280, 200, VPE_SHOW_NORMAL ) .head 6 - Set nX = nX + nStep .head 3 + ! Function: GenerateReport .head 4 - Description: .head 4 - Returns .head 4 - Parameters .head 4 - Static Variables .head 4 + Local variables .head 5 - File Handle: hFileRpt .head 5 - Number: nI .head 5 - Number: nStepper .head 5 - Number: nMin .head 5 - Number: nZ .head 5 - Number: nCount .head 5 - Number: nTable .head 4 + Actions .head 5 - Set nCount = 0 .head 5 - Set nTable = 1 .head 5 - ! Call SalNumberRandInit( ) .head 5 - Call dlgVpeDemo.Status( 'Generating pseudo report-file...' ) .head 5 - Call SalFileOpen( hFileRpt, RPT_PATH, OF_Create | OF_Write | OF_Text) .head 5 - Call SalFilePutStr( hFileRpt, "Test-Document" ) .head 5 - Call SalFilePutStr( hFileRpt, "1996 " ) .head 5 - Set nZ = 0 .head 5 + While nCount < 20000 .head 6 + If nZ < SalNumberMod( SalNumberRandom( ), 5 ) + 10 .head 7 - Set nStepper = 4 .head 7 - Set nMin = 3 .head 7 - Set nZ = nZ + 1 .head 6 + Else .head 7 - Set nStepper = 21 .head 7 - Set nMin = 20 .head 7 - Set nZ = 0 .head 6 - Call SalFilePutStr( hFileRpt, '@Table ' || SalNumberToStrX( nTable, 0 ) ) .head 6 - Set nTable = nTable + 1 .head 6 - Set nI = SalNumberMod( SalNumberRandom( ), nStepper) + nMin .head 6 + While nI > 0 .head 7 - Set nI = nI - 1 .head 7 - Call SalFilePutStr( hFileRpt, SalFmtFormatNumber( nCount, '###0' ) || ' ' || SalFmtFormatNumber( SalNumberMod( SalNumberRandom( ), 28 ) + 1, '#0' ) || '.' || SalFmtFormatNumber( SalNumberMod( SalNumberRandom( ), 12 ) + 1, '00' ) || '.95 ' || SalFmtFormatNumber( SalNumberRandom( ) + ( SalNumberMod( SalNumberRandom( ), 100 ) / 100 ), '####0.00' ) || ' ' || SalFmtFormatNumber( SalNumberRandom( ) + ( SalNumberMod( SalNumberRandom( ), 100 ) / 100 ), '####0.00' ) || ' ' || SalFmtFormatNumber( SalNumberRandom( ) + ( SalNumberMod( SalNumberRandom( ), 100 ) / 100 ), '####0.00' ) || ' ' ) .head 7 - Set nCount = nCount + 7 .head 5 - Call SalFileClose( hFileRpt ) .head 5 - Call dlgVpeDemo.Status( 'Report generation finished.' ) .head 3 + Function: GenerateData .head 4 - Description: .head 4 + Returns .head 5 - Boolean: .head 4 - Parameters .head 4 - Static Variables .head 4 + Local variables .head 5 - Boolean: bRetVal .head 5 - Number: nI .head 5 - Number: nStepper .head 5 - Number: nMin .head 5 - Number: nZ .head 5 - Number: nCount .head 5 - Number: nTable .head 5 - String: sTableName .head 5 - String: sComment .head 5 - Date/Time: dtTableDate .head 5 - Number: nAmount .head 5 - Number: nProratedAmt .head 5 - Number: nTaxAmt .head 4 + Actions .head 5 - Call SalWaitCursor( TRUE ) .head 5 - Call SalNumberRandInit( SalDateSecond( SalDateCurrent( ) ) * SalDateMinute( SalDateCurrent( ) ) * SalDateHour( SalDateCurrent( ) ) ) .head 5 - Set nTable = 1 .head 5 - Set nZ = 0 .head 5 - Set nCount = 0 .head 5 - Set sComment = '' .head 5 + If SqlPrepare( ghSql, 'INSERT INTO #VPE_DEMO (TABLE_NAME, TABLE_COUNT, TABLE_DATE, AMOUNT, PRORATED_AMT, TAX_AMT, USER_COMMENT ) VALUES ( :sTableName, :nCount, :dtTableDate, :nAmount, :nProratedAmt, :nTaxAmt, :sComment )' ) .head 6 + While nCount < 20000 .head 7 + If nZ < SalNumberMod( SalNumberRandom( ), 5 ) + 10 .head 8 - Set nStepper = 4 .head 8 - Set nMin = 3 .head 7 + Else .head 8 - Set nStepper = 21 .head 8 - Set nMin = 20 .head 8 - Set nZ = 0 .head 7 - Set nZ = nZ + 1 .head 7 - Set sTableName = 'Table ' || SalFmtFormatNumber( nTable, '000' ) .head 7 - Set nTable = nTable + 1 .head 7 - Set nI = SalNumberMod( SalNumberRandom( ), nStepper ) + nMin .head 7 + While nI > 0 .head 8 - Set dtTableDate = SalDateConstruct( 1995, SalNumberMod( SalNumberRandom( ), 12 ) + 1, SalNumberMod( SalNumberRandom( ), 28 ) + 1, 0, 0, 0 ) .head 8 - Set nAmount = SalNumberRandom( ) + SalNumberRandom( ) / 32768 .head 8 - Set nProratedAmt = SalNumberRandom( ) + SalNumberRandom( ) / 32768 .head 8 - Set nTaxAmt = SalNumberRandom( ) + SalNumberRandom( ) / 32768 .head 8 - Call SqlExecute( ghSql ) .head 8 - Set nCount = nCount + 7 .head 8 - Set nI = nI - 1 .head 6 - Call SqlCommit( ghSql ) .head 6 - Set bRetVal = TRUE .head 5 + Else .head 6 - Set bRetVal = FALSE .head 5 - Call SalWaitCursor( FALSE ) .head 5 - Return bRetVal .head 3 + ! PrintJournal routines .head 4 - Structure of input file .head 4 - ======================== .head 4 - User-name .head 4 - Year .head 4 - Start Month (or blank) .head 4 - End Month (or blank) .head 4 - <@>Table-Name --> start a new table!!! .head 4 - No. .head 4 - Date .head 4 - Amount .head 4 - Prorated Amount .head 4 - Tax .head 4 - Remark .head 4 - Remark .head 3 - ! NOTE: In this demo Y2 has a constant value for much faster processing .head 3 + Function: PrintHeader .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 5 - String: sTable .head 4 - Static Variables .head 4 - Local variables .head 4 + Actions .head 5 - Call VpeSetAlign( hDoc, ALIGN_CENTER ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 14 ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_LightGray ) .head 5 - Call VpeWriteBox( hDoc, VLEFTMARGIN, VBOTTOM, VRIGHTMARGIN, -60, sTable ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_CENTER, 1, 0, 0 ) .head 5 - Call VpeSelectFont( hDoc, 'Arial', 11 ) .head 5 - Call VpeWriteBox( hDoc, VLEFTMARGIN, VBOTTOM, -200, -50, "No." ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -200, VBOTTOM, "Date" ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, "Amount" ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, "Prorated Amount" ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, "Tax" ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, VRIGHTMARGIN, VBOTTOM, "Remark" ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_LEFT, 0, 0, 0 ) .head 5 - Call VpeSetBkgColor( hDoc, SalColorFromRGB( 255, 255, 255 ) ) .head 3 + Function: PrintFooter .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 4 - Static Variables .head 4 + Local variables .head 5 - String: s .head 4 + Actions .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_CENTER, 1, 0, 0 ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_LightGray ) .head 5 - Call VpeWriteBox( hDoc, VLEFTMARGIN, VBOTTOM, -400, -50, "Sum" ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_RIGHT, 1, 0, 0 ) .head 5 - Set s = SalFmtFormatNumber( gnSumAmount, '###,##0.00' ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, s ) .head 5 - Set s = SalFmtFormatNumber( gnSumProratedAmt, '###,##0.00' ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, s ) .head 5 - Set s = SalFmtFormatNumber( gnSumTaxAmt, '###,##0.00' ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, s ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, VRIGHTMARGIN, VBOTTOM, '' ) .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_LEFT, 0, 0, 0 ) .head 5 - Call VpeSetBkgColor( hDoc, COLOR_White ) .head 3 + Function: PrintPageFooter .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 5 - String: sName .head 5 - Number: nPage .head 4 - Static Variables .head 4 - Local variables .head 4 + Actions .head 5 - Call VpeStorePos( hDoc ) .head 5 - Call VpeNoPen( hDoc ) .head 5 - Call VpeWriteBox( hDoc, VLEFTMARGIN, VBOTTOMMARGIN, VpeGet( hDoc, VRIGHTMARGIN ) - 400, -50, sName ) .head 5 - Call VpeSetAlign( hDoc, ALIGN_RIGHT ) .head 5 - Call VpeWriteBox( hDoc, VRIGHT, VBOTTOMMARGIN, VRIGHTMARGIN, -50, 'Journal Page ' || SalNumberToStrX( nPage, 0 ) ) .head 5 - Call VpeSetPen( hDoc, 3, _VPE_PS_SOLID, COLOR_Black ) .head 5 - Call VpeRestorePos( hDoc ) .head 3 + Function: PageBreak .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - Number: hDoc .head 5 - Number: nPage .head 4 - Static Variables .head 4 - Local variables .head 4 + Actions .head 5 - Call VpePageBreak( hDoc ) .head 5 + If SalNumberMod( nPage, 5 ) = 0 .head 6 - Call dlgVpeDemo.Status( 'now reading demo data and generating page ' || SalNumberToStrX( nPage, 0 ) ) .head 3 + Function: PrintJournal .head 4 - Description: .head 4 + Returns .head 5 - Boolean: .head 4 - Parameters .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: hDoc .head 5 - String: s .head 5 - String: sBuf .head 5 - String: sName .head 5 - String: sYear .head 5 - String: sPeriod .head 5 - String: sTableName .head 5 - Number: nTableCount .head 5 - Date/Time: dtTableDate .head 5 - Number: nAmount .head 5 - Number: nProratedAmt .head 5 - Number: nTaxAmt .head 5 - String: sComment .head 5 - Boolean: bFooterOk .head 5 - Number: nPage .head 5 - Boolean: bRetVal .head 5 - Number: nFetchResult .head 5 - String: sOldTableName .head 5 - String: sTableDate .head 4 + Actions .head 5 - Set bRetVal = FALSE .head 5 - Set bFooterOk = FALSE .head 5 - Set nPage = 1 .head 5 - Set sOldTableName = '' .head 5 - Call SalWaitCursor( TRUE ) .head 5 + When SqlError .head 6 - Return FALSE .head 5 + If SqlPrepareAndExecute( ghSql, 'SELECT TABLE_NAME, TABLE_COUNT, TABLE_DATE, AMOUNT, PRORATED_AMT, TAX_AMT, USER_COMMENT FROM #VPE_DEMO ORDER BY TABLE_NAME, TABLE_COUNT INTO :sTableName, :nTableCount, :dtTableDate, :nAmount, :nProratedAmt, :nTaxAmt, :sComment' ) .head 6 - Set hDoc = VpeOpenDoc( ghWndMain, "Speed + Tables", -1, -1, VPE_GRID_POSSIBLE ) .head 6 - Set gnSpeed = hDoc .head 6 - Call VpeSetTransparentMode( hDoc, FALSE ) .head 6 - Set sName = 'VPE Test Data' .head 6 - Set sYear = '1995' .head 6 - Set s = 'Journal ' || sYear .head 6 - Call VpeSetPen( hDoc, 0, 0, COLOR_Black ) .head 6 - Call VpeSetFontAttr( hDoc, ALIGN_CENTER, 0, 1, 0 ) .head 6 - Call VpeSelectFont( hDoc, 'Arial', 16 ) .head 6 - Call VpeWriteBox( hDoc, VLEFTMARGIN, VTOPMARGIN, VRIGHTMARGIN, VFREE, s ) .head 6 - Call VpeSetPen( hDoc, 3, _VPE_PS_SOLID, COLOR_Black ) .head 6 - Call VpeSetFontAttr( hDoc, ALIGN_LEFT, 0, 0, 0 ) .head 6 - Call VpeSelectFont( hDoc, 'Arial', 11 ) .head 6 + While SqlFetchNext( ghSql, nFetchResult ) .head 7 + If sTableName != sOldTableName .head 8 - ! beginning of a new table .head 8 + If bFooterOk .head 9 - Call PrintFooter( hDoc ) .head 8 - Set gnSumAmount = 0 .head 8 - Set gnSumProratedAmt = 0 .head 8 - Set gnSumTaxAmt = 0 .head 8 - ! is the space to the bottom of the page sufficient for another table? .head 8 + If ( VpeGet( hDoc, VBOTTOMMARGIN) - VpeGet( hDoc, VBOTTOM ) ) < 400 .head 9 - ! no, so add a new page .head 9 - Call PrintPageFooter( hDoc, sName, nPage ) .head 9 - Call PageBreak( hDoc, nPage ) .head 9 - Set nPage = nPage + 1 .head 8 + Else .head 9 - ! begining on new table is 1 cm below previous table .head 9 - Call VpeSet( hDoc, VBOTTOM, VpeGet( hDoc, VBOTTOM ) + 100 ) .head 8 - Call PrintHeader( hDoc, sTableName ) .head 8 - Set bFooterOk = FALSE .head 8 - Set sOldTableName = sTableName .head 7 + Else .head 8 - ! list part .head 8 - Set bFooterOk = TRUE .head 8 - Call VpeSetTransparentMode( hDoc, 1 ) .head 8 - Call VpeSetAlign( hDoc, ALIGN_RIGHT ) .head 8 - Call VpeWriteBox( hDoc, VLEFTMARGIN, VBOTTOM, -200, -50, SalNumberToStrX( nTableCount, 0 ) ) .head 8 - Call SalDateToStr( dtTableDate, sTableDate ) .head 8 - Set sTableDate = SalStrMidX( sTableDate, 2, 8 ) .head 8 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -200, VBOTTOM, sTableDate ) .head 8 - Set gnSumAmount = gnSumAmount + nAmount .head 8 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, SalNumberToStrX( nAmount, 2 ) ) .head 8 - Set gnSumProratedAmt = gnSumProratedAmt + nProratedAmt .head 8 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, SalNumberToStrX( nProratedAmt, 2 ) ) .head 8 - Set gnSumTaxAmt = gnSumTaxAmt + nTaxAmt .head 8 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, -250, VBOTTOM, SalNumberToStrX( nTaxAmt, 2 ) ) .head 8 - Call VpeSetAlign( hDoc, ALIGN_LEFT ) .head 8 - Call VpeSelectFont( hDoc, 'Arial', 6 ) .head 8 - Call VpeWriteBox( hDoc, VRIGHT, VTOP, VRIGHTMARGIN, VBOTTOM, sComment ) .head 8 - Call VpeSelectFont( hDoc, 'Arial', 11 ) .head 8 - Call VpeSetTransparentMode( hDoc, 0 ) .head 8 + If VpeGet( hDoc, VBOTTOM ) + 150 > VpeGet( hDoc, VBOTTOMMARGIN ) .head 9 - ! bottom of page reached .head 9 - Call PrintFooter( hDoc ) .head 9 - Call PrintPageFooter( hDoc, sName, nPage ) .head 9 - Call PageBreak( hDoc, nPage ) .head 9 - Set nPage = nPage + 1 .head 9 - Call PrintHeader( hDoc, sTableName ) .head 6 - Call PrintFooter( hDoc ) .head 6 - Call PrintPageFooter( hDoc, sName, nPage ) .head 6 - Call VpeGotoPage( hDoc, 1 ) .head 6 - Call VpeWriteBox( hDoc, 100, 100, 1000, 150, 'Generated ' || SalNumberToStrX( VpeGetPageCount( hDoc ), 0 ) || ' pages of demo data.' ) .head 6 - Call dlgVpeDemo.Status( '' ) .head 6 - Call VpePreviewDoc( hDoc, 0, 0, -1, -1, VPE_SHOW_MAXIMIZED ) .head 6 - Set bRetVal = TRUE .head 5 + Else .head 6 - Call dlgVpeDemo.Status( 'ERROR: demo data table not found!' ) .head 5 - Call SalWaitCursor( FALSE ) .head 5 - Return bRetVal .head 3 + Function: Graph .head 4 - Description: .head 4 - Returns .head 4 - Parameters .head 4 - Static Variables .head 4 + Local variables .head 5 - Number: hDoc .head 4 + Actions .head 5 - Set hDoc = VpeOpenDoc( ghWndMain, "Precision + Capabilities", -1, -1, VPE_EMBEDDED | VPE_GRID_POSSIBLE | VPE_ROUTE_HELP ) .head 5 - Set gnGraph = hDoc .head 5 - Call VpeSetFontAttr( hDoc, ALIGN_LEFT, 0, 1, 1 ) .head 5 - Call VpeSetPen( hDoc, 0, _VPE_PS_SOLID, 0 ) .head 5 - Call VpeDefineHeader( hDoc, 100, 100, 1000, 150, "Graphing / IDEAL Software" ) .head 5 - Call VpeSetUnderlined( hDoc, 0 ) .head 5 - Call SalWaitCursor( TRUE ) .head 5 - Call page2( hDoc ) .head 5 - Call SalWaitCursor( FALSE ) .head 5 - Call VpeRemoveSet( hDoc, HEADLINE ) .head 5 - Call VpeGotoPage( hDoc, 1 ) .head 5 - Call VpePreviewDocTile( hDoc, VPE_SHOW_NORMAL ) .head 2 - Named Menus .head 2 + Class Definitions .head 2 + Default Classes .head 3 - MDI Window: cBaseMDI .head 3 - Form Window: .head 3 - Dialog Box: .head 3 - Table Window: .head 3 - Quest Window: .head 3 - Data Field: .head 3 - Spin Field: .head 3 - Multiline Field: cQuickMLField .head 3 - Pushbutton: cQuickCommander .head 3 - Radio Button: .head 3 - Option Button: .head 3 - Check Box: .head 3 - Child Table: cQuickTable .head 3 - Quest Child Window: cQuickDatabase .head 3 - List Box: .head 3 - Combo Box: .head 3 - Picture: cQuickPicture .head 3 - Vertical Scroll Bar: .head 3 - Horizontal Scroll Bar: .head 3 - Column: .head 3 - Background Text: .head 3 - Group Box: .head 3 - Line: .head 3 - Frame: .head 3 - Custom Control: cQuickGraph .head 2 - Application Actions .head 1 + Form Window: frmVpeDemo .head 2 - Class: .head 2 - Property Template: .head 2 - Class DLL Name: .head 2 - Title: VPE .head 2 - Icon File: .head 2 - Accesories Enabled? No .head 2 - Visible? Yes .head 2 - Display Settings .head 3 - Display Style? Standard .head 3 - Visible at Design time? No .head 3 - Automatically Created at Runtime? Yes .head 3 - Initial State: Normal .head 3 - Maximizable? Yes .head 3 - Minimizable? Yes .head 3 - System Menu? Yes .head 3 - Resizable? Yes .head 3 - Window Location and Size .head 4 - Left: Default .head 4 - Top: Default .head 4 - Width: Default .head 4 - Width Editable? Yes .head 4 - Height: Default .head 4 - Height Editable? Yes .head 3 - Form Size .head 4 - Width: Default .head 4 - Height: Default .head 4 - Number of Pages: Dynamic .head 3 - Font Name: Default .head 3 - Font Size: Default .head 3 - Font Enhancement: Default .head 3 - Text Color: Default .head 3 - Background Color: Default .head 2 - Description: .head 2 - Named Menus .head 2 - Menu .head 2 + Tool Bar .head 3 - Display Settings .head 4 - Display Style? Default .head 4 - Location? Top .head 4 - Visible? Yes .head 4 - Size: Default .head 4 - Size Editable? Yes .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Text Color: Default .head 4 - Background Color: Default .head 3 - Contents .head 2 - Contents .head 2 - Functions .head 2 - Window Parameters .head 2 + Window Variables .head 3 - Boolean: bNoClose .head 2 + Message Actions .head 3 + On SAM_Create .head 4 - Call SalCreateWindow( dlgVpeDemo, hWndForm ) .head 4 - Set ghWndMain = hWndForm .head 4 - Set bNoClose = FALSE .head 3 + On VPE_HELP .head 4 - Call SalMessageBox( "User requested help!", "Note:", MB_Ok ) .head 3 + On VPE_DESTROYWINDOW .head 4 + If lParam = gnPrecision .head 5 - Call SalSendMsg( dlgVpeDemo.pbClosePrecision, SAM_Click, 0, 0 ) .head 4 + Else If lParam = gnGraph .head 5 - Call SalSendMsg( dlgVpeDemo.pbCloseGraph, SAM_Click, 0, 0 ) .head 4 + Else If lParam = gnSpeed .head 5 - Call SalSendMsg( dlgVpeDemo.pbCloseSpeed, SAM_Click, 0, 0 ) .head 4 + Else If lParam = gnColors .head 5 - Call SalSendMsg( dlgVpeDemo.pbCloseColors, SAM_Click, 0, 0 ) .head 4 + Else If lParam = gnReport .head 5 - Call SalSendMsg( dlgVpeDemo.pbCloseReport, SAM_Click, 0, 0 ) .head 3 + On VPE_PRINT .head 4 + If wParam .head 5 - Set bNoClose = TRUE .head 4 + Else .head 5 - Set bNoClose = FALSE .head 5 + If lParam = gnPBackGnd .head 6 - Call VpeCloseDoc( gnPBackGnd ) .head 6 - Set gnPBackGnd = 0 .head 6 - Call dlgVpeDemo.Status( 'Message: Background Processing finished.' ) .head 3 + On VPE_PRINTCANCEL .head 4 - Set bNoClose = FALSE .head 4 + If lParam = gnPBackGnd .head 5 - Set gnPBackGnd = 0 .head 5 - Call dlgVpeDemo.Status( 'Message: Background Processing aborted.' ) .head 3 + On WM_SIZE .head 4 + If (gnPrecision) ! this is an embedded window .head 5 - Call MoveWindow( VpeWindowHandle( gnPrecision), 0, 0, SalNumberLow( lParam ), SalNumberHigh( lParam ), FALSE ) .head 5 - Return 0 .head 4 + Else If (gnGraph) .head 5 - Call MoveWindow( VpeWindowHandle( gnGraph), 0, 0, SalNumberLow( lParam ), SalNumberHigh( lParam ), FALSE ) .head 5 - Return 0 .head 3 + On WM_KEYDOWN .head 4 + If (gnPrecision) ! this is an embedded window .head 5 - Call SalSendMsg( VpeWindowHandle( gnPrecision ), WM_KEYDOWN, wParam, lParam ) .head 5 - Return 0 .head 4 + Else If (gnGraph) .head 5 - Call SalSendMsg( VpeWindowHandle( gnGraph ), WM_KEYDOWN, wParam, lParam ) .head 5 - Return 0 .head 3 + On SAM_Close .head 4 + If bNoClose ! can't close, because printing? .head 5 - Call SalMessageBox( "Can't close, job is printing!", "WARNING:", MB_Ok ) .head 5 - Return FALSE .head 4 + Else .head 5 + If gnColors .head 6 - Call SalSendMsg( dlgVpeDemo.pbCloseColors, SAM_Click, 0, 0 ) .head 5 + If gnReport .head 6 - Call SalSendMsg( dlgVpeDemo.pbCloseReport, SAM_Click, 0, 0 ) .head 5 + If gnSpeed .head 6 - Call SalSendMsg( dlgVpeDemo.pbCloseSpeed, SAM_Click, 0, 0 ) .head 5 + If gbTableCreated .head 6 - Call SqlPrepareAndExecute( ghSql, 'DROP TABLE #VPE_DEMO' ) .head 6 - Call SqlCommit( ghSql ) .head 6 - Call SqlDisconnect( ghSql ) .head 1 + Dialog Box: dlgVpeDemo .head 2 - Class: .head 2 - Property Template: .head 2 - Class DLL Name: .head 2 - Title: Virtual Print Engine .head 2 - Accesories Enabled? No .head 2 - Visible? Yes .head 2 - Display Settings .head 3 - Display Style? Default .head 3 - Visible at Design time? No .head 3 - Type of Dialog: Modeless .head 3 - Window Location and Size .head 4 - Left: 2.35" .head 4 - Top: 1.823" .head 4 - Width: 6.367" .head 4 - Width Editable? Yes .head 4 - Height: 3.524" .head 4 - Height Editable? Yes .head 3 - Absolute Screen Location? Yes .head 3 - Font Name: Arial .head 3 - Font Size: 8 .head 3 - Font Enhancement: Bold .head 3 - Text Color: Default .head 3 - Background Color: Default .head 2 - Description: .head 2 + Tool Bar .head 3 - Display Settings .head 4 - Display Style? Default .head 4 - Location? Top .head 4 - Visible? Yes .head 4 - Size: Default .head 4 - Size Editable? Yes .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Text Color: Default .head 4 - Background Color: Default .head 3 - Contents .head 2 + Contents .head 3 + Pushbutton: pbBackground .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Background .head 4 - Window Location and Size .head 5 - Left: 0.433" .head 5 - Top: 0.143" .head 5 - Width: 1.333" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 - Call Status( 'Here no preview is shown. Also no printer-setup is done - setting of the standard printer or of your last setup in VPE is taken' ) .head 6 - Call SalDisableWindow( hWndItem ) .head 6 - Call Precision( 1 ) .head 6 - Call SalEnableWindow( hWndItem ) .head 3 + Pushbutton: pbPrecision .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Capabilities + Precision .head 4 - Window Location and Size .head 5 - Left: 1.883" .head 5 - Top: 0.119" .head 5 - Width: 2.567" .head 5 - Width Editable? Yes .head 5 - Height: 0.292" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 + If gnPrecision .head 7 - Call Status( 'Precision test is already running' ) .head 6 + Else .head 7 - Call Status( 'The window titled \'VPE\' is the application\'s main window. It\'s content is an embedded window from the VPE-DLL!!! ' || 'You just need about 12 lines of code!' ) .head 7 - Call Precision( 0 ) .head 7 - Call SalEnableWindow( pbClosePrecision ) .head 7 - Call SalEnableWindow( pbPreviousPage ) .head 7 - Call SalEnableWindow( pbNextPage ) .head 3 + Pushbutton: pbClosePrecision .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Close .head 4 - Window Location and Size .head 5 - Left: 4.633" .head 5 - Top: 0.143" .head 5 - Width: 0.767" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 5 + On SAM_Click .head 6 + If NOT VpeCloseDoc( gnPrecision ) .head 7 - Call Status( 'Can\'t close, task \'precision test\' is currently printing' ) .head 6 + Else .head 7 - Call SalDisableWindow( hWndItem ) .head 7 - Call SalDisableWindow( pbPreviousPage ) .head 7 - Call SalDisableWindow( pbNextPage ) .head 7 - Set gnPrecision = 0 .head 3 + Pushbutton: pbPreviousPage .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: << .head 4 - Window Location and Size .head 5 - Left: 2.6" .head 5 - Top: 0.476" .head 5 - Width: 0.483" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 5 + On SAM_Click .head 6 - Call VpeSetUpdate( gnPrecision, TRUE ) .head 6 - Call VpeGotoPage( gnPrecision, VpeGetCurrentPage( gnPrecision ) - 1 ) .head 6 - Call VpeSetUpdate( gnPrecision, FALSE ) .head 3 + Pushbutton: pbNextPage .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: >> .head 4 - Window Location and Size .head 5 - Left: 3.133" .head 5 - Top: 0.476" .head 5 - Width: 0.483" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 5 + On SAM_Click .head 6 - Call VpeSetUpdate( gnPrecision, TRUE ) .head 6 - Call VpeGotoPage( gnPrecision, VpeGetCurrentPage( gnPrecision ) + 1 ) .head 6 - Call VpeSetUpdate( gnPrecision, FALSE ) .head 3 + Pushbutton: pbGraph .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Graphing .head 4 - Window Location and Size .head 5 - Left: 1.883" .head 5 - Top: 0.762" .head 5 - Width: 2.567" .head 5 - Width Editable? Yes .head 5 - Height: 0.292" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 + If gnGraph .head 7 - Call Status( 'Graphing demo already running' ) .head 6 + Else .head 7 - Call Status( 'A demonstration of VPE\'s graphing capabilities will appear in the main window. The calculations take a short time. Once computed, VPE can display the graph incredibly fast.' ) .head 7 - Call Graph( ) .head 7 - Call SalEnableWindow( pbCloseGraph ) .head 3 + Pushbutton: pbCloseGraph .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Close .head 4 - Window Location and Size .head 5 - Left: 4.633" .head 5 - Top: 0.786" .head 5 - Width: 0.767" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 5 + On SAM_Click .head 6 + If NOT VpeCloseDoc( gnGraph ) .head 7 - Call Status( 'Can\'t close, task \'Graphing\' is currently printing' ) .head 6 + Else .head 7 - Call SalDisableWindow( hWndItem ) .head 7 - Set gnGraph = 0 .head 3 + ! Pushbutton: pbGenerateReport .winattr .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Generate Report .head 4 - Window Location and Size .head 5 - Left: 0.183" .head 5 - Top: 0.726" .head 5 - Width: 1.613" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .end .head 4 + Message Actions .head 5 + On SAM_Click .head 6 - Call GenerateReport( ) .head 3 + ! Pushbutton: pbDeleteReport .winattr .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Delete Report .head 4 - Window Location and Size .head 5 - Left: 0.183" .head 5 - Top: 0.976" .head 5 - Width: 1.617" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .end .head 4 + Message Actions .head 5 + On SAM_Click .head 6 - Call SalFileOpen( hFileRpt, RPT_PATH, OF_Delete ) .head 3 + Pushbutton: pbSpeed .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Speed + Tables... .head 4 - Window Location and Size .head 5 - Left: 1.883" .head 5 - Top: 1.119" .head 5 - Width: 2.567" .head 5 - Width Editable? Yes .head 5 - Height: 0.292" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 + If gnSpeed .head 7 - Call Status( 'Speed and Tables demo already running' ) .head 6 + Else .head 7 + If NOT gbTableCreated .head 8 - Set sDatabase = 'GUPTA' .head 8 - Set sUser = 'SYSADM' .head 8 - Set sPassword = 'SYSADM' .head 8 + If SalModalDialog( dlgVpeLogin, hWndForm, sDatabase, sUser, sPassword ) .head 9 - Set SqlDatabase = sDatabase .head 9 - Set SqlUser = sUser .head 9 - Set SqlPassword = sPassword .head 9 + When SqlError .head 10 - Call SalMessageBox( 'Database connection failed. Please ensure you are using a valid combination of database name, user name and password with the rights to create a table.', 'VPE Demo Database Login', MB_Ok ) .head 10 - Return FALSE .head 9 + If SqlConnect( ghSql ) .head 10 + When SqlError .head 11 - Return FALSE .head 10 - Set sSql = 'CREATE TABLE #VPE_DEMO (TABLE_NAME VARCHAR(9), TABLE_COUNT INT, TABLE_DATE DATE, AMOUNT DECIMAL(8,2), PRORATED_AMT DECIMAL(8,2), TAX_AMT DECIMAL(8,2), USER_COMMENT VARCHAR(200) )' .head 10 + If SqlPrepareAndExecute( ghSql, sSql ) .head 11 - Call SqlCommit( ghSql ) .head 11 - Call Status( 'Generating report demo data. This data will be deleted when you exit the demo. Please wait.' ) .head 11 - Call GenerateData( ) .head 11 - Set gbTableCreated = TRUE .head 10 + Else .head 11 - Call SalMessageBox( 'VPE Demo was unable to create the table in the database for setting up the demo data. Please ensure that the user ID has sufficient rights to create a table in the database.', 'VPE Demo CREATE TABLE failed', MB_Ok ) .head 7 + If gbTableCreated .head 8 - Call Status( 'Creating report from the database.' ) .head 8 - Call PrintJournal( ) .head 8 - Call SalEnableWindow( pbCloseSpeed ) .head 3 + Pushbutton: pbCloseSpeed .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Close .head 4 - Window Location and Size .head 5 - Left: 4.633" .head 5 - Top: 1.143" .head 5 - Width: 0.767" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 5 + On SAM_Click .head 6 + If NOT VpeCloseDoc( gnSpeed ) .head 7 - Call Status( 'Can\'t close, task \'Speed and Tables\' is currently printing' ) .head 6 + Else .head 7 - Call SalDisableWindow( hWndItem ) .head 7 - Set gnSpeed = 0 .head 3 + Pushbutton: pbColors .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Colors .head 4 - Window Location and Size .head 5 - Left: 1.883" .head 5 - Top: 1.476" .head 5 - Width: 2.567" .head 5 - Width Editable? Yes .head 5 - Height: 0.292" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 + If gnColors .head 7 - Call Status( 'Color test is already running' ) .head 6 + Else .head 7 - Call SalWaitCursor( TRUE ) .head 7 - Call colortest( ) .head 7 - Call SalWaitCursor( FALSE ) .head 7 - Call SalEnableWindow( pbCloseColors ) .head 3 + Pushbutton: pbCloseColors .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Close .head 4 - Window Location and Size .head 5 - Left: 4.633" .head 5 - Top: 1.5" .head 5 - Width: 0.767" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 5 + On SAM_Click .head 6 + If NOT VpeCloseDoc( gnColors ) .head 7 - Call Status( 'Can\'t close, task \'color test\' is currently printing' ) .head 6 + Else .head 7 - Call SalDisableWindow( hWndItem ) .head 7 - Set gnColors = 0 .head 3 + Pushbutton: pbReport .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Report .head 4 - Window Location and Size .head 5 - Left: 1.883" .head 5 - Top: 1.821" .head 5 - Width: 2.567" .head 5 - Width Editable? Yes .head 5 - Height: 0.292" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 + If gnReport .head 7 - Call Status( 'Report test is already running' ) .head 6 + Else .head 7 - Call reporttest( ) .head 7 - Call SalEnableWindow( pbCloseReport ) .head 3 + Pushbutton: pbCloseReport .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Close .head 4 - Window Location and Size .head 5 - Left: 4.633" .head 5 - Top: 1.845" .head 5 - Width: 0.767" .head 5 - Width Editable? Yes .head 5 - Height: 0.238" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 5 + On SAM_Click .head 6 + If NOT VpeCloseDoc( gnReport ) .head 7 - Call Status( 'Can\'t close, task \'report test\' is currently printing' ) .head 6 + Else .head 7 - Call SalDisableWindow( hWndItem ) .head 7 - Set gnReport = 0 .head 3 + Pushbutton: pbExit .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Exit .head 4 - Window Location and Size .head 5 - Left: 2.617" .head 5 - Top: 2.179" .head 5 - Width: 1.1" .head 5 - Width Editable? Yes .head 5 - Height: 0.292" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: (none) .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 - Call SalSendMsg( ghWndMain, SAM_Close, 0, 0 ) .head 3 + Multiline Field: mlStatus .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Data .head 5 - Maximum Data Length: 1000 .head 5 - String Type: String .head 5 - Editable? Yes .head 4 - Display Settings .head 5 - Border? No .head 5 - Word Wrap? Yes .head 5 - Vertical Scroll? No .head 5 - Window Location and Size .head 6 - Left: 0.233" .head 6 - Top: 2.548" .head 6 - Width: 5.85" .head 6 - Width Editable? Yes .head 6 - Height: 0.643" .head 6 - Height Editable? Yes .head 5 - Visible? Yes .head 5 - Font Name: Default .head 5 - Font Size: Default .head 5 - Font Enhancement: Default .head 5 - Text Color: Default .head 5 - Background Color: Gray .head 4 + Message Actions .head 5 + On SAM_Create .head 6 - Call SalDisableWindow( hWndItem ) .head 2 + Functions .head 3 + Function: Status .head 4 - Description: .head 4 - Returns .head 4 + Parameters .head 5 - String: sStatusText .head 4 - Static Variables .head 4 - Local variables .head 4 + Actions .head 5 - Set mlStatus = sStatusText .head 2 - Window Parameters .head 2 + Window Variables .head 3 - String: sDatabase .head 3 - String: sUser .head 3 - String: sPassword .head 3 - String: sSql .head 2 + Message Actions .head 3 + On WM_COMMAND .head 4 - Call Status( '' ) .head 3 + On WM_KEYDOWN .head 4 + If (gnPrecision) ! this is an embedded window .head 5 - Call SalSendMsg( VpeWindowHandle( gnPrecision ), WM_KEYDOWN, wParam, lParam ) .head 5 - Return 0 .head 4 + Else If (gnGraph) .head 5 - Call SalSendMsg( VpeWindowHandle( gnGraph ), WM_KEYDOWN, wParam, lParam ) .head 5 - Return 0 .head 3 + On SAM_Create .head 4 - Set gbTableCreated = FALSE .head 1 + Dialog Box: dlgVpeLogin .head 2 - Class: .head 2 - Property Template: .head 2 - Class DLL Name: .head 2 - Title: VPE Demo Database Login .head 2 - Accesories Enabled? No .head 2 - Visible? Yes .head 2 - Display Settings .head 3 - Display Style? Default .head 3 - Visible at Design time? No .head 3 - Type of Dialog: Modal .head 3 - Window Location and Size .head 4 - Left: 1.413" .head 4 - Top: 1.083" .head 4 - Width: 6.267" .head 4 - Width Editable? Yes .head 4 - Height: 3.417" .head 4 - Height Editable? Yes .head 3 - Absolute Screen Location? No .head 3 - Font Name: Arial .head 3 - Font Size: 8 .head 3 - Font Enhancement: Default .head 3 - Text Color: Default .head 3 - Background Color: Default .head 2 - Description: .head 2 + Tool Bar .head 3 - Display Settings .head 4 - Display Style? Default .head 4 - Location? Top .head 4 - Visible? Yes .head 4 - Size: Default .head 4 - Size Editable? Yes .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Text Color: Default .head 4 - Background Color: Default .head 3 - Contents .head 2 + Contents .head 3 - Background Text: This part of the VPE demo shows how VPE can be used to generate reports from a SQL database. VPE Demo needs to connect to a database with a user ID that has the rights to create a new table. The table will be deleted upon completion of this part of the demo. Please provide connection information. The default values are suitable for a standard SQLWindows 5.0 installation. .head 4 - Resource Id: 4310 .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Window Location and Size .head 5 - Left: 0.383" .head 5 - Top: 0.048" .head 5 - Width: 5.333" .head 5 - Width Editable? Yes .head 5 - Height: 1.512" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Justify: Left .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Bold .head 4 - Text Color: Default .head 4 - Background Color: Default .head 3 - Background Text: &Database: .head 4 - Resource Id: 4311 .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Window Location and Size .head 5 - Left: 1.3" .head 5 - Top: 1.714" .head 5 - Width: 0.867" .head 5 - Width Editable? Yes .head 5 - Height: 0.167" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Justify: Left .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Text Color: Default .head 4 - Background Color: Default .head 3 + Data Field: dfDatabase .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Data .head 5 - Maximum Data Length: Default .head 5 - Data Type: String .head 5 - Editable? Yes .head 4 - Display Settings .head 5 - Window Location and Size .head 6 - Left: 2.667" .head 6 - Top: 1.679" .head 6 - Width: 1.983" .head 6 - Width Editable? Yes .head 6 - Height: 0.25" .head 6 - Height Editable? Yes .head 5 - Visible? Yes .head 5 - Border? Yes .head 5 - Justify: Left .head 5 - Format: Unformatted .head 5 - Country: Default .head 5 - Font Name: Default .head 5 - Font Size: Default .head 5 - Font Enhancement: Default .head 5 - Text Color: Default .head 5 - Background Color: Default .head 5 - Input Mask: Unformatted .head 4 - Message Actions .head 3 - Background Text: &User: .head 4 - Resource Id: 4312 .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Window Location and Size .head 5 - Left: 1.3" .head 5 - Top: 2.024" .head 5 - Width: 0.867" .head 5 - Width Editable? Yes .head 5 - Height: 0.167" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Justify: Left .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Text Color: Default .head 4 - Background Color: Default .head 3 + Data Field: dfUser .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Data .head 5 - Maximum Data Length: Default .head 5 - Data Type: String .head 5 - Editable? Yes .head 4 - Display Settings .head 5 - Window Location and Size .head 6 - Left: 2.667" .head 6 - Top: 1.988" .head 6 - Width: 1.983" .head 6 - Width Editable? Yes .head 6 - Height: 0.25" .head 6 - Height Editable? Yes .head 5 - Visible? Yes .head 5 - Border? Yes .head 5 - Justify: Left .head 5 - Format: Unformatted .head 5 - Country: Default .head 5 - Font Name: Default .head 5 - Font Size: Default .head 5 - Font Enhancement: Default .head 5 - Text Color: Default .head 5 - Background Color: Default .head 5 - Input Mask: Unformatted .head 4 - Message Actions .head 3 - Background Text: &Password: .head 4 - Resource Id: 4313 .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Window Location and Size .head 5 - Left: 1.3" .head 5 - Top: 2.333" .head 5 - Width: 0.867" .head 5 - Width Editable? Yes .head 5 - Height: 0.167" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Justify: Left .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Text Color: Default .head 4 - Background Color: Default .head 3 + Data Field: dfPassword .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Data .head 5 - Maximum Data Length: Default .head 5 - Data Type: String .head 5 - Editable? Yes .head 4 - Display Settings .head 5 - Window Location and Size .head 6 - Left: 2.667" .head 6 - Top: 2.298" .head 6 - Width: 1.983" .head 6 - Width Editable? Yes .head 6 - Height: 0.25" .head 6 - Height Editable? Yes .head 5 - Visible? Yes .head 5 - Border? Yes .head 5 - Justify: Left .head 5 - Format: Invisible .head 5 - Country: Default .head 5 - Font Name: Default .head 5 - Font Size: Default .head 5 - Font Enhancement: Default .head 5 - Text Color: Default .head 5 - Background Color: Default .head 5 - Input Mask: Unformatted .head 4 - Message Actions .head 3 + Pushbutton: pbLogin .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: &Login .head 4 - Window Location and Size .head 5 - Left: 1.85" .head 5 - Top: 2.631" .head 5 - Width: 1.2" .head 5 - Width Editable? Yes .head 5 - Height: 0.298" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: Enter .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 - Call SalSendMsg( hWndForm, SAM_Close, TRUE, 0 ) .head 3 + Pushbutton: pbCancel .head 4 - Class Child Ref Key: 0 .head 4 - Class ChildKey: 0 .head 4 - Class: .head 4 - Property Template: .head 4 - Class DLL Name: .head 4 - Title: Cancel .head 4 - Window Location and Size .head 5 - Left: 3.183" .head 5 - Top: 2.631" .head 5 - Width: 1.2" .head 5 - Width Editable? Yes .head 5 - Height: 0.298" .head 5 - Height Editable? Yes .head 4 - Visible? Yes .head 4 - Keyboard Accelerator: Esc .head 4 - Font Name: Default .head 4 - Font Size: Default .head 4 - Font Enhancement: Default .head 4 - Picture File Name: .head 4 - Picture Transparent Color: None .head 4 - Image Style: Single .head 4 - Text Color: Default .head 4 - Background Color: Default .head 4 + Message Actions .head 5 + On SAM_Click .head 6 - Call SalSendMsg( hWndForm, SAM_Close, FALSE, 0 ) .head 2 - Functions .head 2 + Window Parameters .head 3 - String: p_sDatabase .head 3 - String: p_sUser .head 3 - String: p_sPassword .head 2 - Window Variables .head 2 + Message Actions .head 3 + On SAM_Create .head 4 - Call SalCenterWindow( hWndForm ) .head 4 - Set dfDatabase = p_sDatabase .head 4 - Set dfUser = p_sUser .head 4 - Set dfPassword = p_sPassword .head 3 + On SAM_Close .head 4 + If wParam .head 5 - Set p_sDatabase = dfDatabase .head 5 - Set p_sUser = dfUser .head 5 - Set p_sPassword = dfPassword .head 4 - Call SalEndDialog( hWndForm, wParam )